<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>


<% 
 Dim nombre
  Dim titulo,titulo2
  Dim datos,datos2
     
  ' titulo = "Gran clasico peruano" 
  ' Response.Write "nombre="+titulo 

%>
<!--#include file="cnxBd.asp"-->
<%

'sSQL="Select codigo,nombre  From reportepdf where nombre='GNLC_Cond_Oper_2010_10_14.pdf' "
sSQL="Select codigo,nombre,fecha From calc_registros2c order by id desc  "
set RS = Conn.Execute(sSQL) ' aqui el problema ???????

num_campos=RS.Fields.Count


registro=RS("codigo")



if registro < 10 then 
      reg="00000" 
   elseif  registro>9 and registro<100 then
      reg="0000" 
	  elseif  registro>99 and registro<1000 then
	  reg="000" 
	  elseif  registro>999 and registro<10000 then
	  reg="00"
	  else
	  reg="0"
   end if 



datos=reg
datos2=""

datos=datos & RS("codigo")

datos2=datos2 & RS("fecha")

'Do While Not RS.Eof
'
'
'
'datos=datos & RS("codigo") & " - " & RS("artefacto") & "<br>"
'
'
'  
'   RS.MoveNext
'Loop
'RS.MoveFirst
' Conn.Close
 
 
  titulo=datos
  titulo2=datos2
  
  response.write "&nombre="+titulo+"&fecha="+titulo2
  
 ' response.write "&nombre2="+titulo2
 
' &variable1=texto1&variable2=texto2&
  
%> 


